home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / exercise 8 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  152 lines
  1. 100 PRINT"[147]";:POKE53272,23:POKE53280,0:POKE53281,0:C=0
  2. 101 PRINT"[156]          [215][200][195] [197]NTERPRISES":GOSUB591
  3. 102 PRINT"[159]                                        [146]";
  4. 103 PRINT"                                        [146]";
  5. 104 PRINT"         [205]C[196]ONALD [197]NGLISH [211]ERIES        [146]";
  6. 105 PRINT"[159]                                        [146]";
  7. 106 PRINT"                                        [146]";
  8. 107 PRINT"               [215][207][210][196][160] [213][211][193][199][197]              [146]";
  9. 108 PRINT"[159]                                        [146]";
  10. 109 PRINT"                                        [146]";
  11. 110 PRINT"            BETWEEN >< AMONG            [146]";
  12. 111 PRINT"[159]                                        [146]";
  13. 112 PRINT"[159]                                        [146]":GOSUB235
  14. 150 PRINT"[159][147] [215]HAT IS YOUR NAME?   "
  15. 152 INPUT N$
  16. 154 IF N$=""THEN152
  17. 156 GOSUB590
  18. 158 PRINT" [201]NSTRUCTIONS?  [217]/[206]
  19. 160 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]160
  20. 162 [139]R$[178]"Y"[167][137]400
  21. 163 [139]R$[178]"(null)"[167][137]400
  22. 190 [153]"OPENLOAD AND AWAY WE GO, "N$".":[141]591:[141]500:[141]590
  23. 192 [137]1000
  24. 235 [141]591:[141]560
  25. 236 [153]"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  26. 237 [161]U$:[139]U$[179][177][199](32)[167]237
  27. 238 [142]
  28. 240 [141]592:[141]560
  29. 242 [153]"CONT    >>>> (null)(null)ATNLENVAL PEEKATN(null) <<<<   "
  30. 244 [161]U$:[139]U$[179][177][199](32)[167]244
  31. 246 [153]"ON                                       "
  32. 248 [142]
  33. 299 :
  34. 400 [153]"LOAD              RIGHT$NSTRUCTIONS            OPEN
  35. 402 PRINT" [212]HIS IS A WORD GAME FOR GRADE 3, 4,     AND 5 PUPILS."
  36. 404 PRINT" [201]T WILL HELP YOU WITH YOUR SPELLING.
  37. 406 [153]" (null)OUR TASK IS TO SELECT SYSBETWEEN
  38. 408 PRINT" OR [158]AMONG IN A FEW SENTENCES.
  39. 414 [153]"OPEN ATNFTER YOU TYPE IN THE WORD, PRESS        (null)VAL(null)(null)(null)(null) WAIT":[141]235
  40. 416 [153]"LOADOPEN     (null)OW, LET'S LOOK AT SOME HINTS."
  41. 418 [141]235:[137]600
  42. 499 :
  43. 500 [143] <YES>
  44. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  45. 510 [151]54296,15:[151]54277,42:[151]54278,250
  46. 515 [151]54276,23:[151]54273,23:[151]54272,191
  47. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  48. 525 [151]54296,0:[142]
  49. 530 [143] <NO>
  50. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  51. 540 [151]54296,15:[151]54277,18:[151]54278,242
  52. 545 [151]54276,33:[151]54273,4:[151]54272,48
  53. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  54. 555 [151]54296,0:[142]
  55. 560 [143] <BLIP>
  56. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  57. 570 [151]54296,7:[151]54277,42:[151]54278,250
  58. 575 [151]54276,23:[151]54273,23:[151]54272,191
  59. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  60. 585 [151]54296,0:[142]
  61. 590 [129]TM[178]1[164]500:[130]:[142]
  62. 591 [129]TM[178]1[164]1000:[130]:[142]
  63. 592 [129]TM[178]1[164]2000:[130]:[142]
  64. 593 [129]TM[178]1[164]3000:[130]:[142]
  65. 600 [153]"LOAD       (null)OME LEN(null)(null)VAL(null).......
  66. 605 PRINT"[158] [194]ETWEEN[159] AND [158]ANMONG[159] ARE COMMONLY         MISUSED.
  67. 610 [153]"PRINT         **** (null)VAL(null)VAL(null)PEEKVAL(null) ****
  68. 620 PRINT" [158][194]ETWEEN[159]IS USED TO REFER TO [212][215][207]
  69. 625 [153]" PEOPLE, PLACES, THINGS OR EVENTS.
  70. 630 PRINT" [158][193]MONG[159] IS USED TO REFER TO [212][200][210][197][197]         OR [205][207][210][197]."
  71. 690 GOSUB235
  72. 695 GOTO190
  73. 999 :
  74. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  75. 1005 P=1:C=15:H=0
  76. 1010 FORJ=1TOC
  77. 1015 READA$,B$,C$,D$
  78. 1020 PRINT"[152][147] [197][196]-48 [197]X-8 [156]"TAB(14)""N$,TAB(29)"[155][211]TEP:"P""
  79. 1025 PRINT""
  80. 1030 PRINT"[158]>>> [159]";A$;"
  81. 1035 [153]"    (null)ELECT THE CORRECT WORD FOR THIS        SENTENCE.
  82. 1037 PRINT"            "B$
  83. 1038 PRINT"            "C$
  84. 1040 GOSUB560:INPUT"[158]>>>> ";SK$
  85. 1045 IFSK$=D$THEN1090
  86. 1050 PRINT"[150]                  [206][207]                    [159]":GOSUB530:GOSUB591
  87. 1055 PRINT"[150] [212]HE ANSWER IS [158]"D$:H=H+1:GOSUB560:GOSUB560:GOSUB591
  88. 1070 GOSUB240:GOTO1095
  89. 1090 PRINT"                   [217][197][211]!                 [159][146]":GOSUB500:GOSUB591
  90. 1095 P=P+1:NEXT J
  91. 1999 :
  92. 2000 PRINT"[159][147][217]OU HAVE NOW COMPLETED [197]XERCISE 8.":GOSUB560:GOSUB591
  93. 2005 PRINT"[153][217]OU HAVE ANSWERED"C"QUESTIONS":GOSUB591
  94. 2007 IFH=0THEN2020
  95. 2010 IF H=1THENPRINT"[150][217]OU MADE ONLY ONE BLOOPER.":GOSUB530:GOTO2025
  96. 2012 PRINT"[150][217]OU MADE"H"BLOOPERS.":GOSUB530:GOTO2030
  97. 2020 IFH=0THENPRINT"[158]                [197][216][195][197][204][204][197][206][212]!              [146]":GOTO2035
  98. 2025 IFH=1THENPRINT"[159]              [199]OOD [215]ORK!                [146]":GOTO2035
  99. 2030 PRINT"[150]       [212]RY HARDER!  [196]O IT AGAIN!        [146]"
  100. 2035 PRINT"":GOSUB235
  101. 2050 PRINT"[153][147][217]OU HAVE A CHOICE:
  102. 2052 [153]"(null)RESS  (null) WAIT TO REPEAT VALXERCISE 8
  103. 2054 PRINT"[208]RESS  [199] [146] TO GO TO [197]XERCISE 9
  104. 2056 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
  105. 2060 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"G"ANDR$<>"[199]"ANDR$<>"M"ANDR$<>"[205]"THEN2060
  106. 2062 IFR$="R"THENRESTORE:GOTO100
  107. 2064 IFR$="[210]"THENRESTORE:GOTO100
  108. 2066 IFR$="G"THENRESTORE:GOTO2080
  109. 2068 IFR$="[199]"THENRESTORE:GOTO2080
  110. 2070 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
  111. 2072 [147]"MENU",8
  112. 2074 [138]
  113. 2076 [128]
  114. 2080 [153]"LOAD (null)OADING VALXERCISE 9
  115. 2082 LOAD"EXERCISE 9",8
  116. 2084 RUN
  117. 2086 END
  118. 2099 :
  119. 2100 REM THE GUTS OF THE UNIT
  120. 2110 DATA"[212]HERE WAS A DUCK [158]....[159] A GAGGLE OF       GEESE."
  121. 2112 DATA"BETWEEN","AMONG","AMONG"
  122. 2115 DATA"[193] HAMMER LAY [158]....[159] THE PAIR OF SHOES.
  123. 2117 [131]"BETWEEN","AMONG","BETWEEN"
  124. 2120 [131]"(null)HERE WAS A MOOSE SYS....OPEN THE HERD         OF COWS.
  125. 2122 DATA"BETWEEN","AMONG","AMONG"
  126. 2125 DATA"[212]HE CHORES WILL BE SHARED [158]....[159]          BOTH OF US."
  127. 2127 DATA"BETWEEN","AMONG","BETWEEN"
  128. 2130 DATA"[205]Y LITTLE DINGHY DRIFTED [158]....[159] A         GAM OF WHALES.
  129. 2132 [131]"BETWEEN","AMONG","AMONG"
  130. 2135 [131]"MID$OE AND (null)OM STOOD SYS....OPEN A SWARM          OF BEES."
  131. 2137 [131]"BETWEEN","AMONG","AMONG"
  132. 2140 [131]"(null)HERE WERE POLICEMEN SYS....OPEN THE           CROWD OF PROTESTERS."
  133. 2142 [131]"BETWEEN","AMONG","AMONG"
  134. 2145 [131]"(null)E CAMPED SYS....OPEN FIVE OF OUR              FRIENDS.
  135. 2147 DATA"BETWEEN","AMONG","AMONG"
  136. 2150 DATA"[201] SAT [158]....[159] THE TWINS."
  137. 2152 DATA"BETWEEN","AMONG","BETWEEN"
  138. 2155 DATA"[210]OBERTA WILL SHARE HER CANDY [158]....[159]       ALL OF YOU.
  139. 2157 [131]"BETWEEN","AMONG","AMONG"
  140. 2160 [131]"(null)Y CAT, CHR$ARFIELD, WAS ASLEEP SYS....OPEN       A FLOCK OF BIRDS,"
  141. 2162 [131]"BETWEEN","AMONG","AMONG"
  142. 2165 [131]"(null)HERE WAS A LITTLE MOUSE SYS....OPEN A         CLOWDER OF CATS."
  143. 2167 [131]"BETWEEN","AMONG","AMONG"
  144. 2170 [131]"(null)HEY WERE TRAPPED SYS....OPEN A VAST           ARMY OF RED ANTS."
  145. 2172 [131]"BETWEEN","AMONG","AMONG"
  146. 2175 [131]"(null)HE BALL DROPPED SYS....OPEN A COUPLE          OF CHILDREN."
  147. 2177 [131]"BETWEEN","AMONG","BETWEEN"
  148. 2180 [131]"(null)HE TOURISTS FOUND THEMSELVES            SYS....OPEN A PRIDE OF LIONS."
  149. 2182 [131]"BETWEEN","AMONG","AMONG"
  150. 2199 :
  151. 3000 [143] WH CUMBERLAND 93:04:20
  152.